Opendata, Todesfälle, Sterblichkeit, Todesursachen, Mortalitätsmonitoring (MOMO)
| date | age | kt | kanton | value | value_cum |
|---|---|---|---|---|---|
| 2015-12-28 | 80+ | CH | Schweiz | 779 | 41501 |
| 2015-12-31 | 80+ | CH | Schweiz | 815 | 42316 |
| 2017-12-25 | 80+ | CH | Schweiz | 866 | 41351 |
| 2018-12-31 | 80+ | CH | Schweiz | 839 | 41399 |
| 2019-12-30 | 80+ | CH | Schweiz | 831 | 42015 |
---
title: "Mortalitätsmonitoring Schweiz"
knit: (function(input_file, encoding) {
out_dir <- '_book';
if (!dir.exists(out_dir)) dir.create(out_dir);
rmarkdown::render(input_file,
encoding=encoding,
output_file=file.path(dirname(input_file), out_dir, 'index.html'))})
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(dygraphs)
library(dplyr)
library(readr)
source('momodyfun.R')
dft <- dyfun('../data/todesfaelle_woche.csv', '../data/grossregionCH.csv')
```
### Graf


```{r}
myxts <- dft %>%
filter(kt == 'CH') %>%
group_by(date) %>%
summarise(value = sum(value)) %>%
xts::xts(order.by = .$date)
dygraph(myxts) %>% dyRangeSelector()
```
### Table
[Opendata](https://opendata.swiss/de/dataset/todesfalle-nach-funf-jahres-altersgruppe-geschlecht-woche-und-kanton-csv-datei5),
[Todesfälle](https://www.bfs.admin.ch/bfs/de/home/statistiken/bevoelkerung/geburten-todesfaelle/todesfaelle.html),
[Sterblichkeit, Todesursachen](https://www.bfs.admin.ch/bfs/de/home/statistiken/gesundheit/gesundheitszustand/sterblichkeit-todesursachen.html),
[Mortalitätsmonitoring (MOMO)](https://www.experimental.bfs.admin.ch/de/momo.html)
```{r}
dft %>%
top_n(5) %>%
knitr::kable(caption = 'Todesfallzahl Top 5 ')
```